% V20210224 - 6.9 GW_SHELF_NEWROW

INCLUDE "GW.bas"

% Create a page.
p = GW_NEW_PAGE()

% Prepare title bar string.
Title$ = GW_ADD_BAR_TITLE$("Shelf_Newrow Example")

% Add title to page.
GW_ADD_TITLEBAR(p, Title$)

% Start a shelf, force it to be split
% 50/50 horizontally via a custo.
GW_USE_THEME_CUSTO_ONCE("style='width:50%'")
GW_SHELF_OPEN(p)

% First control.
GW_USE_THEME_CUSTO_ONCE("color=a")
pgblue = GW_ADD_PROGRESSBAR(p, "a = blue")

% Second control.
GW_SHELF_NEWCELL(p)
GW_USE_THEME_CUSTO_ONCE("color=b")
pggreen = GW_ADD_PROGRESSBAR(p, "b = green")

% Go to the next line.
GW_SHELF_NEWROW(p)

% First control on second line.
GW_USE_THEME_CUSTO_ONCE("color=c")
pgred = GW_ADD_PROGRESSBAR (p, "c = red")

% Second control on second line.
GW_SHELF_NEWCELL(p)
GW_USE_THEME_CUSTO_ONCE("color=d")
pgorange = GW_ADD_PROGRESSBAR(p, "d = orange")

% Go to next line.
GW_SHELF_NEWROW(p)

% First conrol on third line.
GW_USE_THEME_CUSTO_ONCE("color=e")
pgpink = GW_ADD_PROGRESSBAR(p, "e = pink")

% Second control on third line.
GW_SHELF_NEWCELL(p)
GW_USE_THEME_CUSTO_ONCE("color=f")
pgdarkblue = GW_ADD_PROGRESSBAR(p, "f = dark blue")

% Close the shelf.
GW_SHELF_CLOSE(p)

% Dhow the page.
GW_RENDER(p)

% Set progressbars values.
GW_SET_PROGRESSBAR(pgblue, 50)
GW_SET_PROGRESSBAR(pggreen, 50)
GW_SET_PROGRESSBAR(pgred, 50)
GW_SET_PROGRESSBAR(pgorange, 50)
GW_SET_PROGRESSBAR(pgpink, 50)
GW_SET_PROGRESSBAR(pgdarkblue, 50)

DO  % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.

 % Example feedback.
 POPUP r$

% End when BACK key is pressed.
UNTIL r$ = "BACK"

END "End of SHELF_NEWROW example."